﻿Public Class ColPrez
    'Collection indexée de documents trouves
    Inherits System.Collections.ObjectModel.KeyedCollection(Of Integer, ClassPrez)

    Protected Overrides Function GetKeyForItem(ByVal item As ClassPrez) As Integer
        Return item.DocID
    End Function

    Friend Overloads Sub add(ByVal Key As Integer, ByRef Item As ClassPrez)
        If Not Me.Contains(Key) Then
            Me.add(Item)
        End If
    End Sub
End Class
